home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / utility / pwg_key.zip / KRS100.ZIP / MAKEKEY.WCX (.txt) < prev   
Wildcat! WCX  |  1995-05-18  |  2KB  |  67 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  2047 bytes  11/10/122  08:02:56pm
  3. '! Code Segment Size  :756 bytes
  4. '! Data Segment Size  :4526 bytes
  5. '! String Segment Size:1291 bytes
  6. '! Compiled with WCC version ? 019A016A
  7.  
  8.       Dim s4463 As String*30
  9.       Dim i4493 As Integer
  10.       Dim l4503 As Long
  11.       Dim s4507 As String*7
  12.       Dim l4514 As Long
  13.       Dim l4518 As Long
  14.  
  15.       Dim l65524_ As Long
  16.       Dim i65528_ As Integer
  17.       Dim l65530_ As Long
  18.       Dim i65534_ As Integer
  19.  
  20.       Do
  21.    40   Cls 
  22.         Print "@7F@┌@78@─────────────────────────────────────────────────────────────────────────────┐@7F@"
  23.         Print "@7F@│                              MakeKey Ver 1.0                                @78@│@7F@"
  24.         Print "@7F@│                                                                             @78@│@7F@"
  25.         Print "@7F@│              @74@Enter WC! BBS Name @0E@[                             ]@7F@             @78@│@7F@"
  26.         Print "@7F@│                                                                             @78@│@7F@"
  27.         Print "@7F@│              @74@Enter the WC! Registration No.@0E@[       ]@7F@                        @78@│@7F@"
  28.         Print "@7F@│                                                                             @78@│@7F@"
  29.         Print "@7F@│              @74@Enter the Program ID Code (1-99999) @0E@[     ]@7F@                    @78@│@7F@"
  30.         Print "@7F@│                                                                             @78@│@7F@"
  31.         Print "@7F@│              @74@The Key for this Package is :@7F@                                  @78@│@7F@"
  32.         Print "@7F@│                                                                             @78@│@7F@"
  33.         Print "@7F@└─────────────────────────────────────────────────────────────────────────────@78@┘@09@"
  34.         Locate 4, 36
  35.         Print "@0A@";
  36.         s4463 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  37.         Locate 6, 47
  38.         Print "@0B@";
  39.         s4507 = InputMask("", "99-9999", "", 1213417543)
  40.         Locate 8, 53
  41.         Print "@0D@";
  42.         l4503 = InputNumber("", 1, 99999)
  43.         l4514 = 0
  44.         l4518 = 0
  45.         s4507 = Trim(s4507)
  46.         s4507 = UCase(s4507)
  47.         s4463 = Trim(s4463)
  48.         s4463 = UCase(s4463)
  49.   377   For i4493 = 1 To Len(s4463) Step 1
  50.           l4514 = l4514 + Asc(Mid(s4463, i4493, 1))
  51.         Next
  52.   481   l4518 = 0
  53.   515   For i4493 = 1 To Len(s4507) Step 1
  54.           l4518 = l4518 + Asc(Mid(s4507, i4493, 1))
  55.         Next
  56.   619   l4518 = l4518 + l4514
  57.         l4518 = l4518 * 7
  58.         l4518 = l4518 * l4503
  59.         l4518 = l4518 + l4503
  60.         Locate 10, 45
  61.         Print FormatNumber(l4518, "##########")
  62.         Locate 13, 1
  63.         Print "@0F@"
  64.         If (InputYesNo("Do you want to generate another Key? <Y/N>", -1)) = 0 Then GoTo 747
  65.       Loop
  66.   747 End 
  67.